home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / clisp_c.zoo / type.fas < prev    next >
Text File  |  1993-06-05  |  25KB  |  522 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
  3. #Y(#:TOP-LEVEL-FORM-2 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  4.    TYPE-ERROR REMOVE-OLD-DEFINITIONS
  5.    #Y(TYPE-ERROR #11Y(00 02 00 00 00 03 D4 AB AB 5A 02)
  6.       "~S: invalid type specification ~S"
  7.   )  )
  8. #Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  9.    TYPEP REMOVE-OLD-DEFINITIONS
  10.    #Y(TYPEP
  11.       #262Y(00 02 00 00 00 03 5B AA 86 2D 80 8E AA D4 36 01 78 98 00 1B 0A AA
  12.             D5 36 01 78 98 00 1C 80 CF 14 AC 34 01 19 04 AB A9 AC 59 01 1A 80
  13.             B9 AA AC 30 57 19 04 DC D8 96 54 70 5A 02 AB 8C 03 36 03 84 DC 13
  14.             02 19 04 94 54 70 86 2D 68 94 54 53 56 14 AC 34 01 1B 6D 00 19 04
  15.             AB 95 54 70 26 FF A7 51 19 04 8C 02 5B 1A 11 8C 02 5B 1A 1F 7E 01
  16.             00 AD A9 26 FF 92 1C 19 7A 01 A9 84 B6 70 02 19 06 7E 01 00 AD A9
  17.             26 FF 7F 1B 73 7A 01 A9 84 B6 70 00 19 06 14 AC 96 54 35 01 19 04
  18.             94 1F 80 62 8B 02 86 2D 80 5C 8B 02 24 06 07 AA 6A 63 23 07 FF 95
  19.             8B 02 23 09 FF 84 8B 02 24 0A 07 AA 6A 63 23 07 FF 96 8B 02 23 0B
  20.             FF 9A 8B 02 23 0C FF 99 8B 02 D5 36 01 78 98 00 1B FF B9 8B 02 D6
  21.             36 01 78 98 00 1C 1D AB A9 96 14 6E 01 27 02 06 FF 18 AA D6 36 01
  22.             78 98 00 1B FF 2D AA D7 36 01 85 98 FF 2D D8 AB 2E 05 19 04
  23.            )
  24.       TYPE-SYMBOL TYPE-LIST DEFTYPE-EXPANDER DEFSTRUCT-DESCRIPTION TYPEP
  25.       TYPE-ERROR SATISFIES 2. "~S: argument to SATISFIES must be a symbol: ~S"
  26.       MEMBER NOT AND OR
  27.   )  )
  28. #Y(#:TOP-LEVEL-FORM-4 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) ARRAY
  29.    TYPE-SYMBOL #.#'ARRAYP
  30.   )
  31. #Y(#:TOP-LEVEL-FORM-5 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) ATOM
  32.    TYPE-SYMBOL #.#'ATOM
  33.   )
  34. #Y(#:TOP-LEVEL-FORM-6 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) BIGNUM
  35.    TYPE-SYMBOL
  36.    #Y(TYPE-SYMBOL-BIGNUM
  37.       #19Y(00 01 00 00 00 02 A9 30 35 1E 06 A9 30 36 51 19 02 19 02)
  38.   )  )
  39. #Y(#:TOP-LEVEL-FORM-7 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) BIT
  40.    TYPE-SYMBOL
  41.    #Y(TYPE-SYMBOL-BIT
  42.       #18Y(00 01 00 00 00 02 A9 BE 52 1D 05 A9 BF 52 19 02 19 02) 0. 1.
  43.   )  )
  44. #Y(#:TOP-LEVEL-FORM-8 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) BIT-VECTOR
  45.    TYPE-SYMBOL #.#'BIT-VECTOR-P
  46.   )
  47. #Y(#:TOP-LEVEL-FORM-9 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) CHARACTER
  48.    TYPE-SYMBOL #.#'CHARACTERP
  49.   )
  50. #Y(#:TOP-LEVEL-FORM-10 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) COMMON
  51.    TYPE-SYMBOL #.#'COMMONP
  52.   )
  53. #Y(#:TOP-LEVEL-FORM-11 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  54.    COMPILED-FUNCTION TYPE-SYMBOL #.#'COMPILED-FUNCTION-P
  55.   )
  56. #Y(#:TOP-LEVEL-FORM-12 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) COMPLEX
  57.    TYPE-SYMBOL #.#'COMPLEXP
  58.   )
  59. #Y(#:TOP-LEVEL-FORM-13 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) CONS
  60.    TYPE-SYMBOL #.#'CONSP
  61.   )
  62. #Y(#:TOP-LEVEL-FORM-14 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  63.    DOUBLE-FLOAT TYPE-SYMBOL #.#'DOUBLE-FLOAT-P
  64.   )
  65. #Y(#:TOP-LEVEL-FORM-15 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) FIXNUM
  66.    TYPE-SYMBOL #.#'FIXNUMP
  67.   )
  68. #Y(#:TOP-LEVEL-FORM-16 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) FLOAT
  69.    TYPE-SYMBOL #.#'FLOATP
  70.   )
  71. #Y(#:TOP-LEVEL-FORM-17 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) FUNCTION
  72.    TYPE-SYMBOL #.#'FUNCTIONP
  73.   )
  74. #Y(#:TOP-LEVEL-FORM-18 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) HASH-TABLE
  75.    TYPE-SYMBOL #.#'HASH-TABLE-P
  76.   )
  77. #Y(#:TOP-LEVEL-FORM-19 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) INTEGER
  78.    TYPE-SYMBOL #.#'INTEGERP
  79.   )
  80. #Y(#:TOP-LEVEL-FORM-20 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) KEYWORD
  81.    TYPE-SYMBOL #.#'KEYWORDP
  82.   )
  83. #Y(#:TOP-LEVEL-FORM-21 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) LIST
  84.    TYPE-SYMBOL #.#'LISTP
  85.   )
  86. #Y(#:TOP-LEVEL-FORM-22 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) LONG-FLOAT
  87.    TYPE-SYMBOL #.#'LONG-FLOAT-P
  88.   )
  89. #Y(#:TOP-LEVEL-FORM-23 #13Y(00 00 00 00 00 01 5B D4 D5 30 9C 19 01) TYPE-SYMBOL
  90.    #Y(TYPE-SYMBOL-NIL #9Y(00 01 00 00 00 02 00 19 02))
  91.   )
  92. #Y(#:TOP-LEVEL-FORM-24 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) NULL
  93.    TYPE-SYMBOL #.#'NULL
  94.   )
  95. #Y(#:TOP-LEVEL-FORM-25 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) NUMBER
  96.    TYPE-SYMBOL #.#'NUMBERP
  97.   )
  98. #Y(#:TOP-LEVEL-FORM-26 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) PACKAGE
  99.    TYPE-SYMBOL #.#'PACKAGEP
  100.   )
  101. #Y(#:TOP-LEVEL-FORM-27 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) PATHNAME
  102.    TYPE-SYMBOL #.#'PATHNAMEP
  103.   )
  104. #Y(#:TOP-LEVEL-FORM-28 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  105.    RANDOM-STATE TYPE-SYMBOL #.#'RANDOM-STATE-P
  106.   )
  107. #Y(#:TOP-LEVEL-FORM-29 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) RATIO
  108.    TYPE-SYMBOL
  109.    #Y(TYPE-SYMBOL-RATIO
  110.       #19Y(00 01 00 00 00 02 A9 30 37 1E 06 A9 30 35 51 19 02 19 02)
  111.   )  )
  112. #Y(#:TOP-LEVEL-FORM-30 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) RATIONAL
  113.    TYPE-SYMBOL #.#'RATIONALP
  114.   )
  115. #Y(#:TOP-LEVEL-FORM-31 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) READTABLE
  116.    TYPE-SYMBOL #.#'READTABLEP
  117.   )
  118. #Y(#:TOP-LEVEL-FORM-32 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) REAL
  119.    TYPE-SYMBOL #.#'REALP
  120.   )
  121. #Y(#:TOP-LEVEL-FORM-33 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) SEQUENCE
  122.    TYPE-SYMBOL #.#'SEQUENCEP
  123.   )
  124. #Y(#:TOP-LEVEL-FORM-34 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) SHORT-FLOAT
  125.    TYPE-SYMBOL #.#'SHORT-FLOAT-P
  126.   )
  127. #Y(#:TOP-LEVEL-FORM-35 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  128.    SIMPLE-ARRAY TYPE-SYMBOL #.#'SIMPLE-ARRAY-P
  129.   )
  130. #Y(#:TOP-LEVEL-FORM-36 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  131.    SIMPLE-BIT-VECTOR TYPE-SYMBOL #.#'SIMPLE-BIT-VECTOR-P
  132.   )
  133. #Y(#:TOP-LEVEL-FORM-37 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  134.    SIMPLE-STRING TYPE-SYMBOL #.#'SIMPLE-STRING-P
  135.   )
  136. #Y(#:TOP-LEVEL-FORM-38 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  137.    SIMPLE-VECTOR TYPE-SYMBOL #.#'SIMPLE-VECTOR-P
  138.   )
  139. #Y(#:TOP-LEVEL-FORM-39 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  140.    SINGLE-FLOAT TYPE-SYMBOL #.#'SINGLE-FLOAT-P
  141.   )
  142. #Y(#:TOP-LEVEL-FORM-40 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  143.    STANDARD-CHAR TYPE-SYMBOL
  144.    #Y(TYPE-SYMBOL-STANDARD-CHAR
  145.       #18Y(00 01 00 00 00 02 A9 30 43 1E 05 A9 2F 1D 19 02 19 02)
  146.   )  )
  147. #Y(#:TOP-LEVEL-FORM-41 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) STREAM
  148.    TYPE-SYMBOL #.#'STREAMP
  149.   )
  150. #Y(#:TOP-LEVEL-FORM-42 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) STRING
  151.    TYPE-SYMBOL #.#'STRINGP
  152.   )
  153. #Y(#:TOP-LEVEL-FORM-43 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) STRING-CHAR
  154.    TYPE-SYMBOL
  155.    #Y(TYPE-SYMBOL-STRING-CHAR
  156.       #18Y(00 01 00 00 00 02 A9 30 43 1E 05 A9 2F 1F 19 02 19 02)
  157.   )  )
  158. #Y(#:TOP-LEVEL-FORM-44 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) STRUCTURE
  159.    TYPE-SYMBOL
  160.    #Y(TYPE-SYMBOL-STRUCTURE
  161.       #30Y(00 01 00 00 00 02 A9 6A 4E A8 30 2D 1E 0E A8 D4 36 01 30 98 1E 06 A8
  162.            AB 30 57 19 03 19 03
  163.           )
  164.       DEFSTRUCT-DESCRIPTION
  165.   )  )
  166. #Y(#:TOP-LEVEL-FORM-45 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) SYMBOL
  167.    TYPE-SYMBOL #.#'SYMBOLP
  168.   )
  169. #Y(#:TOP-LEVEL-FORM-46 #13Y(00 00 00 00 00 01 5C D4 D5 30 9C 19 01) TYPE-SYMBOL
  170.    #Y(TYPE-SYMBOL-T #9Y(00 01 00 00 00 02 02 19 02))
  171.   )
  172. #Y(#:TOP-LEVEL-FORM-47 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) VECTOR
  173.    TYPE-SYMBOL #.#'VECTORP
  174.   )
  175. #Y(#:TOP-LEVEL-FORM-48 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  176.    UPGRADED-ARRAY-ELEMENT-TYPE REMOVE-OLD-DEFINITIONS
  177.    #Y(UPGRADED-ARRAY-ELEMENT-TYPE
  178.       #93Y(00 01 00 00 00 02 93 25 00 3F 93 19 02 C1 19 05 C3 19 05 C5 19 05 C7
  179.            19 05 C9 19 05 CB 19 05 A8 6A E8 A8 D6 87 01 2F 65 A8 D8 87 01 2F 62
  180.            A8 DA 87 01 2F 5F A8 DC 87 01 2F 5C A8 DE 87 01 2F 59 A8 E0 87 01 2F
  181.            56 02 19 05 A9 2D 01 3E 02 A9 86 35 08 A9 85 A8 04 A8 85 35 45 02 19
  182.            04
  183.           )
  184.       #S(HASH-TABLE EQ (T . 1.) (STRING-CHAR . 1.) (BIT . 1.)) SUBTYPE-INTEGER
  185.       1. BIT 2. (UNSIGNED-BYTE 2.) 4. (UNSIGNED-BYTE 4.) 8. (UNSIGNED-BYTE 8.)
  186.       16. (UNSIGNED-BYTE 16.) 32. (UNSIGNED-BYTE 32.)
  187.   )  )
  188. #Y(#:TOP-LEVEL-FORM-49 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) ARRAY
  189.    TYPE-LIST
  190.    #Y(TYPE-LIST-ARRAY
  191.       #74Y(00 01 00 02 00 0D 37 02 02 BE EC 37 01 02 BE E